Shareware Grab Bag/Shareware Grab Bag.iso/003/db3ar.arc/FIDO.PRG

Text File | 1985-10-16 | 661 b | 32 lines

***************************(B:FIDO.PRG)
CLEA
SET TALK OFF
STORE 1 TO COUNT
DO WHILE COUNT<3
@ 1,1 SAY '         @    /\'
@ 2,1 SAY '          \ _/  @'
@ 3,1 SAY '          /  \'
@ 4,1 SAY '         / oo|\'
@ 5,1 SAY '        {_\  |_}'
@ 6,1 SAY "   _    / _\@'_"
@ 7,1 SAY '  //   / |     |'
@ 8,1 SAY ' {{  _/  | {*} |'
@ 9,1 SAY '  \\/  \ |__U__| '
@ 10,1 SAY '   \   /_ || \\_'
@ 11,1 SAY '    \____}|_} \_} '
?
?
?
@ 5,20 SAY "That's not"
@ 6,1 SAY ' _  '
@ 7,1 SAY ' \\ '
@ 14,1 SAY '  '
@ 1,1 SAY '  '
@ 6,20 SAY 'what I expected...'
@ 6,1 SAY '   _  '
@ 7,1 SAY '  //  '
@ 14,1 SAY '  '
ENDIF
STORE COUNT+1 TO COUNT
ENDDO